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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** ® 
*® ® 
ad © 
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:* ® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER: 
;® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
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Facility: FAL (DECnet File Access Listener) 
Abstract: This module builds the DAP extended Attributes messages. 
Environment: VAX/VMS, user mode 


Author: James A. Krycka, Creation Date: 22-MAY-1979 
Modified By: 
V03-002 JAKO136 J A Krycka 07-MAR-1984 
Cleanup. 
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vo4-000 DECLARATIONS mets Bh i4e:88 LPAL SRCJFALBLDXAB MARS 1 . 3) 
p rf -SBTTL DECLARATIONS 
23 3 

$ 48 ; Include Files: 

000 49 ; 

000 50 

000 51 SDAPPLGDEF ; Define DAP prologue symbols 
0000 26 APHDRDEF ; Define DAP message header 
0000 5 SDAPATTDEF i Define DAP Attributes message 
0000 54 SDAPKEYDEF ; Define DAP Key Definition message 
0000 55 SDAPALLDEF 3; Define DAP Allocation message 
464 2$ SDAPSUMDEF 3; Define DAP Summary message 

000 7 SDAPTIMDEF ; Define DAP Date and Time message 
0000 58 SDAPPRODEF i Define DAP Protection message 
0000 59 $F ALWRKDEF ; Define FAL Work Area symbols 
0000 60 $F ABDEF :; Define File Access Block symbols 
0000 61 $SXABDEF ; Define symbols common to all XABs 
0000 6¢ SXABALLDEF ; Define Allocation XAB symbols 
0000 6 SXABDATDEF ; Define Date and Time XAB symbols 
0000 64 SXABKEYDEF ; Define Key Definition XAB Syenens 
0000 65 $XABPRODEF ; Define Protection XAB symbols 
0000 66 SXABSUMDEF ; Define Summary XAB symobls 
0000 67 
0000 68 ; 
0000 69 ; Macros: 
0000 70 ; 
0000 71; None 
0000 72 ; 
0000 73 ; Equated Symbols: 
0000 74 ; 
0000 75 
0000 76 ASSUME DAPS$Q_DCODE_FLG EQ 0 
0000 77 ASSUME FALSQ"FLG EO 0 
0000 78 
0000 79 ; 
0000 80 ; Own Storage: 
0000 81; 
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DE_KEY 
NOSHR,EXE,RD,NOWRT ,BYTE 
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p++ 

; Functional Description: 
FALSENCODE_KEY builds the specified DAP Key Definition message. 

Calling Sequence: 

FALSENCODE_KEY 

Input Parameters: 

Key of reference value 

Address of FAL work area 

Address of DAP control block 

Address of FAB 

Address of RAB 

Implicit Inputs: 
FABSB_ORG 


Output Parameters: 


Destroyed 


Address of XAB 
Implicit Outputs: 


Completion Codes: 


#DAPSR_KEY_ MSG 
FAL$BUTLD_READ ; 
EABSB_ORGTRI0) .MFABSC_10X : 


DAPSM_REF '~ 
DAPSM_KNMi - 


1:39: 
1:16: 


3; Usin 


AX/VMS Macro Vv04-00 
FAL.SRCJFALBLDXAB.MAR; 1 


EF as an index 

f Key Definit 

; Get message type value 

Construct message header 

message (all fields 
file ORG is not IDX 


Get key menu value 


ion XAB to use 
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~NUL!- 
IAN! - 


0>,R 
BSBW  - FALSCVT_BN4_EXT 


.=J 
@w 
nm 
t 
TR TE TELE TOTO LE Ieee rere re 


FFDA' 30 ; Store KEYMENU as an extensible field 


; Include the FLG, DFL, and IFL fields in the message. 


51 12 A7— QA MOVZBL XABSB_FLG(R7),R1 
52 LRL R2 


, Get FLG bits returned by RMS 
SMAPBIT XABSV_DUP,DAP$V_DUP 


Clear serveusaneing DAP bits 
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; Map DUP 
SMAPBIT XABSV_CHG,DAPSV_CHG ; Map CHG bit 
SMAPBIT XABSV_NUL,DAPSV_NUL_CHR ; Map NUL bit 
83 52 90 MOVB R2,(R5)+ 3; Store key apetene as extensible field 
83 1C A? BO MOVW XABSW_DFL(R7),(R3)+ ; Store data bucket fill quantity field 
83 1A A7 B60 MOVW XABSW_IFL(R7),(R3)+ ; Store index bucket fill quantity field 
004 ; 
Beer : Include the NSG, POS, and SIZ fields in the message. 
O04F ; 
50 14 A? 90 OO04F MOVB XABS$B_NSG(R7) ,RO ; Get loop count : 
83 50 90 0053 MOVB RO,(R3)+ ; Store number of key segments field 
11 13 0056 BEQL 20$ :; Branch if zero 
51 1E A? 3E 0058 MOVAW XABSW_POS(R7),R1 ; Get address of POS array 
52. 26 A? 9E 005C MOVAB C7 AL Sa ; Get address of SIZ arrary 
83 81 B80 6068 10$: MOVW (R1)+,(R35)+ ; Store key segment position field 
83 82 90 006 MOVB (R2)+,(R3)+ ; Store key segment size field 
F750 —s#F 5 0066 SOBGTR RO, 10$ : Loop if more to go 
0069 : 
0063 3; Include the REF, KNM, NUL, IAN, LAN, DAN, and DTP fields in the message. 
69 ‘ 
83 17 A? 90 0069 5 208: MOVB 71 1 sendmail ; Store key of reference field 
83 94 006D 6 CLRB (R3)+ 3; Assume no key name buffer 
38 A?) 36S) =«(O06F 7 TSTL XABSL_KNM(R7) ; Branch if no key name buffer 
09 13 0072 8 BEQL 3 : 
FF A3 $f 90 0074 9 MOVB #32,-1(R3) 3 Store_KNM as an image field | 
63 38 87 0 28 0078 90 MOVC3 #32,@XABSL_KNM(R7),(R3) ; Copy senpyte key name field into msg 
83 15 A? 90 007D 191 30$:  MOVB  XABS$B_NUL(R7),(R3)+ : Store null key character field 
HE 3 A? 90 ba! 35 MOVB XABS$B_IAN(R7) ,(R3)+ ; Store index area number field 
3 9 A7 90 088 $ MOVB XABSB_LAN(R7) ,(R3)+ : store Loyest level index area 
: number fie 
83 OA AZ 90 0089 95 MOVB eae ee Damar) «(Ras ; Store data area number field 
83 13 A7 90 008D 96 MOVB XAB$B_DTP(R7) ,(R3)+ ; Store key data type field 
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Hives FAPSENCODE. KEY 828 p=} 986 8:73:82 FAL.SRCJFALBLDXAB.MAR; 1 ’ 3) 
91 197 | 
911 § : 
3 3 ; Include the RVB, DVB, DBS, IBS, LVL, TKS, and MRL fields in the message. | 
91 ty 
51 OE A7 0 41 ¢ MOVL XABSL_RVB(R7) ,R1 ; Get root bucket start VBN value 
FF68" 9 BSBW FALSCOT_BN4_IMG 3; Store RVB as an image field | 
51 3CA 4 98 4 MOVL XABSL_DVB(R7) ,R1 : Get first data bucket start VBN value 
FF61" 30 343 05 BSBW FALSCVT_BN4_IMG ; Store DVB as an image fie 
83 OD A7 90 oF 06 MOVB XABS$B_DBS(R7), (R3)+ ; Store data bucket fill size field 
83 OC AZ 90 BOAS 07 MOVB XABS$B_IBS(R7) ,(R3)+ ; Store index bucket fill size field | 
e 0B A? «+90 =Q0A 08 MOVB XABSB_LVL(R7),(R3)+ ; Store level of root buckets field 
8 16 A? 90 AB 09 MOVB XABSB_TKS(R7) ,(R3)+ ; Store total key size field ; 
83 18 A7 860 ia si MOVW XABSW_MRL(R7) , (R35) + : epere gene record Length to contain 
; _key fie 
FF4A’ 30 0083 si¢ 40$ BSBW FALSBUILD_TAIL : Finish building message 
05 00B6 21 RSB ; Exit 
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8 ~SBTTL FALSENCODE_ALL 
0000008 »PSECT FALSCODE NOSHR,EXE,RD,NOWRT ,BYTE 


++ 
Functional Description: 
FALSENCODE_ALL builds the specified DAP Allocation message. 
Calling Sequence: 
BSBW FALSENCODE_ALL 
Input Parameters: 
R6 Area ID value 
R8 Address of FAL work area 
R9 Address of DAP control block 
R10 Address of FAB 
R11 Address of RAB 
Implicit Inputs: 


; DAPSV_VAXVMS 


SQN OOD 
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f ? Output Parameters: 
0087 4 RO-R6 Destroyed 
0087 4 R7 Address of XAB 
0087 4 ee 
0087 4 Implicit Outputs: 
0087 4 
0087 4 None 
0087 4 
0087 48 ; Completion Codes: 
0087 4 
0087 None 
0087 5 
0087 ; Side Effects: 
0087 
0087 None 
00B7 
0087 pon 
0087 : 
0087 FALSENCODE +e ; Entry point 
56 20 C4& 0087 MUCL #FALSK_ALLXAB,R6 ; Using AID as an index, compute 
57 0CO0 C846 9E OO0BA 0 MOVAB FAL$L_ALLXAB(R8)(R6],R7 ; address of Allocation XAB to use 
50 96 34 once 61 MOVL #DAPSR_ALL_MSG,R ; Get message type value 
FFSA* 30 Ope 66 BSBW FALSBUTLD_READ ; Construct message header 
51 OES BF 3C 00C6 6 MOVZWL #<DAPSM_VOL!- ; Get allocation menu value 
00¢B 64 $M~AOP i - ; 
CB 265 DAPSM~ALQ2!- : 
0cB 96 DAPSM_AID!- 3 
0cB 6 DAPSM_BKZ!- 3 
O0¢8 08 ,PAPSA_DEGe: ~ 3 
0369 34 €1 CB 5 BBC #DAPSV_VAXVMS,(R9),10$ : Branch if partner is mot VAX/VMS 
51 OA AB OOCF 271 BISW2  #<DAPSR_ALN'DAPSM_LOC>,R1 ; Add to menu 
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FF2B" 30 2008 te 108: BSBW FALSCVT_BN4_EXT ; Store ALLMENU as an extensible field 
D5 74; 
00D5 75 ; Include the VOL, ALN, and AOP fields in the message. 
bos 579 
83 OA A7 BO 00D5 78 MOVW XABSW_VOL(R7) ,(R3)+ ; Store relative volume number field 
0469 34 €1 44 4 BBC #DAPSO_VAXVMS,(R9),20$ ; Branch if partner is not VAX/VMS 
O0DD 281 ASSUME DAPSK_ANY EQ 0 
O0DD Be ASSUME DAPSKCYL EQ XABSC_CYL 
00DD : ASSUME DAPSKLBN EQ XABS$C_LBN 
SoDD 84 ASSUME DAPSK“VBN EQ XABSC~VBN 
83 09 A7 90 O0DD 86 MOVB XAB$B_ALN(R7) , (R3)+ ; Store alignment options field 
51 08 A? 9A OQOE1 87 208: MOVZBL XABS$B_AOP(R7),R1 ; Get AOP bits returned by RMS 
52 04 OOES 288 CLRL R2 ; Clear corresponding DAP bits 
Q0E7 89 SMAPBIT XABSV_CBT,DAP$V_CBT2 ; Map CBT bit 
OOEF 90 SMAPBIT XABSV_CTG,DAP$V_CTG2 ; Map CTG bit 
10 69 34 €1 OOF? 91 BBC #DAPSO_VAXVMS,(R9),30$ ; Branch if partner is not VAX/VMS 
00FB 292 $MAPBIT XAB$V_ARD,DAP$V_HRD ; Map HRD bit 
0103 29 $MAPBIT XABSV—ONCDAP$V—ONC : Map ONC bit : 
51 52 00 0108 294 30$: MOVL R2, ; Move data to correct register 
FEEF* 30 Basi soe BSBW FALSCVT_BN4_EXT ; Store AOP as an extensible field 
O11) 297 3: 
oii 239 ; Include the LOC, ALQ, AID, BKZ, and DEQ fields in the message. 
0111 300° 
07 69 34 #=€1 «=O111 301 BBC #DAPSV_VAXVMS,(R9),40$ ; Branch if partner is not VAX/VMS 
51 OC A? DO 9115 $08 MOVL XABSL_COC(R7) ,R1 ; Get starting location value 
FEES" 30 0119 0 BSBW FALS BN4_IMG ; Store LOC as an image field 
51 10 A7 DO Q11C 304 408: MOVL XAB$L_ACQ(R7) ,R1 : Get allocation quantity value 
FEDD' 30 0120 305 BSBW = FAL SCVT_BN4_IMG ; Store ALQ as an image field 
83 117A? 90 0123 306 MOVB XAB$B_AID(R7), (R3)+ ; Store area identification field 
83 16 A7 90 0127 307 MOVB XABSB_BKZ(R7),(R3)+ ; Store bucket size field : 
83 14 A7 BO 0128 308 MOVW XABi) DEQ(R7) , (R3)+ ; Store default extension quantity field 
FECE’ 30 O12F 309 BSBW FALSBU:°D_TAIL ; Finish building message 
05 0132 310 RSB ; Exit 
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NOSHR,EXE,RD,NOWRT ,BYTE 


FALSENCODE_SUM buiids the DAP Summary message. 


Calling Sequence: 
BSBW FALSENCODE_SUM 
Input Parameters: 


R8 Address of FAL work area 
R9 Address of DAP control block 
R10 Address of FAB 
R11 Address of RAB 
Implicit Inputs: 
FABS$B_ORG 


Output Parameters: 


RO-R6~ Destroyed 
R7 Address of XAB 


Implicit Outputs: 
None 
Completion Codes: 
None 
Side Effects: 

None 


MOVL #DAPSR_SU 
BSBW FALSBUTLD 


ASSUME DAPS$V_NOK LT 7 
ASSUME DAP$V"NOA LT 7 
ASSUME DAPS$V~PVN LT 7 


MOVB #<DAPSM_NOK!- 
DAPS$M_N 


A‘- 


on tetys PVN! = 


EAD 
CMPB FABSE. ORGTRIOD , #FABSC =1DK ; 


; Entry point 


FALSL ate te gd ; Get address of Summary XAB 


; Get message type value 

; benetrycs message header 

yay message (all fields 
: ‘ sefeulten) f file ORG is not IDX 


Get summary menu value 


Store sumenu as an extensible field 
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69 MOVB § XABSB_NOK(R7), (R3)+ ; Store number of keys field | 
MOVB XABSB_NOA(R7),(R3)+ ; Store number of allocation areas field 
7 MOVW XABSW_PVN(R7),(R35)+ ; Store prologue version number field 
1 10$: BsBu FALSBOILD_TAIL ; Brgion building message 
4 x 
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3 ++ 
3 Functional Description: 
FALSENCODE_TIM builds the DAP Date and Time message. 
Calling Sequence: 
BSBW FALSENCODE_TIM 
Input Parameters: 
R8 Address of FAL work area 
RO Address of DAP coiitroi block 
R10 Address of FAB 
R11 Address of RAB 
Implicit Inputs: 
DAP$V_GEQ_v60 
Output Parameters: 


RO-R6~ Destroyed 
R7 Address of XAB 


Implicit Outputs: 
None 
Completion Codes: 
None 
Side Effects: 

None 


FALSENCODE_TIM:: 
MOVAL FALSL_DATXAB(R8) ,R7 
MOVL #DAPSR TIM MSG,RO 
BSBW FALSBUTLD_AEAD 
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Entry point : 

Get address of Date and Time XAB 
Get message type value 

Construct message header 


57 320 C8 
0 0D 
FE9E" 


4 MHQOODOOOOCOCOCOCOOOO0O0O0O0O0 OWBDWDOWOWMOMOdO NNN 


woso 
oom 


Construct date and time menu value. 

Send only time fields that have a non-zero 64-bit time value as zero means 
the current date and time, not 17-NOV-1858! sactuat ly only the upper 52-bits 
will be tested for zero, i.e., any time on 17-NOV-1858 will be considered 

as the default time.) 


ASSUME DAPSV_CDT Ea 0 
ASSUME DAPS$V~CDT+1 EQ DAPSV_RDT 
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DRQRP.DQPLDP PDA PAD DPV TTT 

PROP PIPIPIPIPIPINININ F009 NS Oo 
ye oP oP oe oe De oY at ot ot ot ot ot et et ek et ek ee ee ee et et eh ele lee ele ee eee ee ee | 


—OOODNOUS WIN "OO 


Wvronoronoronorornonon 


= a . . - Page 11 =| FAI 
- BUILD DAP EXT ATT MESSAGES 16-SEP-1984 1:39: AX/VMS Macro V04-00 | vd 
vote Boe FALSENCODE_TIM eet 9 Bhi Fe: 88 LPAL SRCIFALOLDXAB_MAR: 1 (6) 
ASSUME DAPSV_RDT+1 EQ DAP$V_EDT 
ig d : ASSUME DAPS$V_EDT+1 EQ DAPSV_RVN 
1 4 : ASSUME DAPSV_RVN+1 EQ DAPSV_BDT 
1 4 
; Initialize time menu field 
18 3 03 i t $ eet XABSO_CDT#4(R7) ; Branch big creation date and time 
c= 167 & BEQL 10$ : _is zer | 
; Otherwise, send field 
4 of oS 1e¢ ‘3p 108: Pate XABSO ROT SS ¢R7) 3 orenes iy revision date and time | 
6 : 13, a3 A SOR : Otherwise send field 
40 a3 D3 7) ra 208: oi see HApSOLEDT+4CR7) : wrench if expiration date and time | 
03s 177 444 BEQL $ 3 $s zer 
; Otherwise, send field 
35 1} ef ibe tte 30$: Bae? FRAPS nee a N60 (R9),40$ ; Branch if partner uses DAP before V6.0 
=* 28 A? o 018 169 : TSTL XABSQ_BDT+Z(R75 3 erence tf ackup date and time 
« 
se 1 ak Fie 65,2 sArgn aor. i Otherwise, send field 
450 40$: 8 . ; 
a3 9 $8 Hf: 63¢ MOVB R4,(R3T+ ; Store TIMENU as an extensible field | 
453 ; 
O18 tt} 3; Now process each time field. 
TBE 13 : h if COT is not to be included | 
06 54 3800 1 Q1 45 BBC #DAPS$V_CDT,R4,50$ ; Branc Pig a I ply 
50 «14 A? E 0199 $28 MOVAQ XAB$Q_CDT(R7),RO wereation date ond tine. | 
; Store as an image fie 
06 54 8 19 0198 rhs 50$: Bae HDAPSV, ADT Re 608 : gronch 00 NOt te ney te ye tastuded 
wee toa , O1A0 168 er ee ee : couse ies date “~ ing PP 
; Store as an image 
06 54 08 19 gIA2 rhe: 60$: Bae PDAPSY EDT Re, 708 : grerel St Err ve war te ye teecuene | 
50 1C A E By re MOVAQ XABSQ_EDT( »,R expirat fon date and tine | 
; Store as an image 
; 80 iAc te 70$: ee cosa RONGRP) . (R3)# ; Store revision number field 
ee 54° 0 BF 180 470 : BBC #DAPST sitet 3 erence aos 2 net te fe taetuae 
. *) - 
50 24 A7 £ 188 ir MOVAQ XABS$Q_BDT(R7),RO Set 96 "fate and. tine ee | 
1 47 BSBB CONVERT_TIME ; Store as an image | 
reed" 40 1BA 474 80S: BSBW FALSBUICD_TAIL : so building message 
05 QO1BD 475 RSB 3 
Be in } 

: i lue in 64-bit binary format to an ASCII string. 
1BE 238 : — Sa edge og BM. ro on 18-byte fixed Length field in che oat message 
ies ret ; with the first two digits of the year removed (per DAP specification). | 
1BE 482° 

: : Entry point 
5 0 +3 1Bt 4 CONVERT #<20+12>,SP ; grtecexe space tren the stack 
14 i DO 164 d ‘ MOVE #26, O(R2) : Form descriptor of buffer to receive 
-24(R2) : ime strin 
ws =" if é 8 SASCTIM.&- . 3; Convert binary time to ASCII time 


H 15 | 


FALBLDXAB - BILD DAP EXT ATT MESSAGES 197 5EO- 1388 0139362 AX/VMS Macro Vv04-00 Page 12 
v04 FALSENCODE_TIM -SEP=-1984 01:16: FAL.SRCJFALBLDXAB.MAR; 1 (6) 
1cC = 489 Tim ewegs (ag) ; Address of word to return string size 
1¢C 490 TIMBUF=20(R2)- ; Address of descriptor for buffer 
10C 3 491 TIMADR=(RO)- ; Address of 64-bit time value 
icc) = «449 CVTFLG=#0 3 thee set to request date and time 
1DD  =49 SCHECK_SS ; Check status code and exit on failure 
62 20 91 O1E 494 CMPB #*A\ \,(R2) ; Convert Leading space to zero in 
° is 1E 495 BNEQ 10$ ; day-of-month field to conform to 
62 0 9 1E $38 MOVB #*A\O\, (R2) 3 _the DAP V6.0 specification 
1E 49 i ; Store time field omitting the two 
O1E 498 3 century digits 
10 BB OIE 499 10$: PUSHR #*M<R4> 3; Save time ory mask 
63 6 ti $3 1EA 289 MOVC #7,(R2), (R3) ; Copy bytes 1-7 of input string 
02 A He 1 moves = #11,2(R41), (R3) : Copy bytes 9-20 of input string 
10 BA OTF 206 POPR #°M<RG> ; Restore time menu mas 
5E 20 CO OFS 50 ADDL2 #<20+12>,SP : Deallocate space from the stack 
05 O1F8 504 RSB : Exit 
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FALBLDXAB = BUILD DAP EXT ATT MESSAGES 1g-$EB-1984 01:39:25 YAX/VMS Macro VO4-00 Page 13 
vou-000 FALSENCODE PRO SrSEP-1984 01:16:85 ERALVSRCIPALELDXAB MaR;1 29° (3), 
.SBTTL FALSENCODE_PRO | 

“PSECT FALSCODE NOSHR,EXE,RD,NOWRT , BYTE 


+ 
; functional Description: 
FALSENCODE_PRO builds the DAP Protection message. 
Calling Sequence: 
BSBW FALSENCODE_PRO 
Input Parameters: 
R8 Address of FAL work area 
RY Address of DAP control block 
R10 Address of FAB 
R11 Address cf RAB 


Implicit Inputs: 


So 

Oo 

Oo 

oOo 
OOOCOCOCOCOoOOoO Zr 


COCCCCCOCOCCOCO Fn nn nono 


None 
Output Parameters: 


RO-R6 Destroyed 
R7 Address of XAB 


Implicit Outputs: 
None 
Completion Codes: 


Sete Se Ge Ge Se Ge Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Ge Ge be Se Se Se Se Ge Se Se Se Se Se Se Se Se 


NNN REESE EEE IMOOO 000000000 00000000000000000000000000000000 
AAAI A ITI BB BEBE EB BANNAN WINAIIROROPONONONONUNONN OOOO 
MR OODNANE WN OOO NAUE WR OO ODNOAU EWN OOO NAUEWN OC ODNOAUEWH—O DONO 


Ce ee ie ee www www in awww wlan lel ew l ol wl eolalealeloleleleleleleleleloleleleleololoalal a) 
PRIPPOPIPIPONOPOPOPINOIY 8 8 ot tt 0 


None 

Side Effects: 

None -’ 
FA 
FALSENCODE PRO:: ; Entry point FA 
57 034C C8 43 MOVAL FALSE bow R7 ; Get address of Protection XAB FA 
50 OF OD MOVL #DAPSR_P 6 ; Get message type value FA 
FDFC’ 30 BSBW FALSBUTLD OnEAD ; Construct message header oa 
ASSUME DAPSV_OWNER LT 7 FA 
ASSUME DAPSV-PROSYS LT 7 | FA 
ASSUME DAP$V~PROOWN LT 7 FA 
ASSUME DAP$V~PROGRP tT 7 FA 
ASSUME DAPS$V~PROWLD LT 7 y 
83 FF 90 MOVB #<DAPSM_OWNER! = ; Get protection menu value | FA 
paren te PROSYS !~ ; | FA 
DAPSM_ PROGRP : FA 
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vo4-000 FALSENCODE_PRO ~SEP-1984 1:48:98 FAL.SRCJFALBLDXAB.MAR; 1 . (7). Sy! 
7 563 DAPSM, PROWLD!~ : | SY 
, ‘ O>, (R3)F ; Store PROMENU as an extensible field | SY 
? 3 
4 ; Include the OWNER field in the message. 
7 e 
5 1¢ C3 of 3 SUBL2 #<16+12>,SP ; Allocate space from the stack PS! 
5 3 Dd OA 71 MOVL P,R2 ; Save address of work area — 
10 A 1 Do? 8 0D i MOVL #16, 16(R2) ; Form descriptor of buffer to receive : 
14 A 3E 11 «57 P g0(R2) : ASCII string | FA 
20 OE A C 13 74 MOVZUL XABSW_GRP(R7),RO : Get group UIC value $Al 
1 OC ar 3C 021 75 MOVZWL XABSW-MBM(R7),R1 ; Get member UIC value | FA 
1D 18 FAO_S- ; Format the UIC string FA 
1D 7 CTRSTR=W*FAL$GQ_UIC- ; Address of FAO control string 
1D 78 OUTLEN=24(R2)=- ; Address of receive string length 
1D 79 OUTBUF=16(R2)=- ; Address of buffer descriptor 
8 10 80 =RO- : Group number of file owner 
1D 81 =R1 ; Member number of file owner 
0 3 86 SCHECK_SS ; Check status code and exit on failure Ph 
50 18 ae 3C 023 8 MOVZWL  24(R2),RO ; Get length of returned ogc ing i 
83 50 90 3? 584 MOVB. RO,(R3)+ ; Store owner as an image fiel In 
63 62 50 28 C 585 MOVC3 RO,(R2),(R3) 3 sony owner string to message Cor 
es Ue 8 : 288 ADDL2 #<16+125,SP ; Deallocate space from the stack | gy 
024 588 ; Pa: 
8 83 ; Construct the four protection fields: PROSYS, PROOWN, PROGRP, and PROWLD. 5" 
024 91 ° Cre 
024 238 ASSUME DAPSV_RED_ACC EQ XABSV_NOREAD As: 
0 43 59 ASSUME DAPS$V-WRT-ACC EQ XABSV—NOWRITE 
4 294 ASSUME DAPSV~EXE-ACC EQ XABSV_NOEXE Th 
‘ 299 ASSUME DAPSVIDLT-ACC EQ XABSV~NODEL Sg 
4 39 ASSUME DAPS$V_RED_ACC LT 7 19° 
024 98 ASSUME DAPSV-WRT-ACC LT 7 19 
024 99 ASSUME DAPSVEXE-ACC LT 7 
: ont ASSUME DAPSV_DLT_ACC LT 7 
50 O08 A? 3C 4 one MOVZWL XABSW_PRO(R7),RO ; Get protection value 
51 04 0 F 4 6 EXTZV #XABSY_SYS,#4,R0,R1 ; Store system protection field 
83 1 0 4C 604 MOVB R1,(R33+ 3 as an extensible fie 
51 50 06 4 F 4F 6605 EXTZV #XABSV_OWN,#4,R0,R1 ; Store owner protection field 
+ 1 0 33 606 MOVB R1,(R33+ 3 as an extensible fie 
+ 4 08 F no EXTZV #XABSV_GRP,#4,R0,R1 3; Store group protection field 
83 051 0 ee 608 MOVB R1,(R33+ 3 as an extensible field 
51 50 04 Oc fF F 609 EXTZV #xhesy WLD.#4,R0,R1 : Store world protection field | 
83 1 0 64 610 MOVB R1,(R33+ 3 _aS an extensible field 
96° 3 67 9611 BSBW FALSBUILD_TAIL ; Finish building message 
oA o1¢ RSB ; Exit 
| 
6B 614 END : End of module 
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$$T 
CONVERT TIME 
DAPS$B_A 


DAPSB— 
DAP$B_S1Z7_TMP 
DAPSB~STREAMID 


DAPSK~SUM_MSG 
DAPSK_TIN_MSG 
DAP$L—ALQ1 


DAPSL~ALQ2 
DAPSL—AT TMENU 


- BUILD DAP EXT ATT MESSAGES 


p 0 003 
si 
Sais 
sane 
0 0 
0 51 
000 b36 
0000007 
ae 
000 015 
44h 
QO00001A 
8050005) 
00000031 
00000048 
00000051 
0000006E 
00000070 
445449 
00000034 
00000033 
sags $44 
0000004 
00000044 
00000046 
00000049 
00000060 
00000045 
00000047 
0000006C 
4 4 
0000005C 
Q000004A 
000032 
00007F 
030 
024 
0cO 

0 

0 


02 


DAPSL~HB 
DAPS$L-KEYMENU 
DAP$L~LOC 


DAPSL_MRN 
DAPSL_MSG_MASK 
DAPSL RVB 


DAPSM~CDT 
DAPSM_CMPFMT 


DAPSM~RDT 
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5~SEP=1984 01:16: FAL.SRCJFALBLDXAB.MAR; 1 (7) | 


DAPSM_REF = 1 DAPSW_IFL 4 
DAPSM_RVB z DAPSW-LRL 7 

PSM_RVN s DAPSW_MRL 7 
DAPSM_ SEGMENT z 4 P$u- 4A 

PSM_TKS z DAP$W_PARTNER 06 
DAPSM_TMP1$ = FE AP$W_POS 4C 
DAPSM_TMP2$ = F DAP$W_POS TMP 4A 
DAPSM_TMP3$ 2 DAP$W_PROGRP 0054 
DAPSM_TMP4$ = 01 DAP$W_PROMENU $ 004 
DAPSM_TMPSS = fF AP$W_PROOWN 0 383 
DAPSM_VOL z 1 DAPSW_PROSYS 000005 
DAPSM_ZERO = 3 8 DAPS$W_PROWLD $0008? 
DAP$Q_ADT DAP$W_PVN 4 
DAP$Q_BDT 44h $8 DAPSW_RVN 0000004 
DAP$Q_CDT 000004 DAPSW_SUMENU 000004 
DAP$Q_DCODE_FLG £80880 08 DAPSW_TIMENU 0000040 
DAPS$Q_EDT 00000058 DAP$W_VERSION 4 og 
DAP$Q_KNM 00000064 DAPSW_VOL 00000042 
DAP$Q_MSG_BUF1 00000008 F ABSB_ORG = 0000001D 
DAP$Q_MSG_ BUF 2 00000010 $C7l = 00000020 
DAPS$Q_OWNER 00000048 FAL$BO0ILD_HEAD wuneeeee =X 02 
DAP$Q_PDT 00000068 FALSBUILD- TAIL eeeereee = X 02 

P$Q_RDT 00000050 FAL$B_ACCFUNC 000001F6 
DAP$Q_RUNSYS 0000005C FALSB_ACCOPT 4 
DAPSQ_SYSPEC 00000038 FAL$B_DATATYPE 00001F4 
DAPS$V_BDT = 00000004 FAL$B_DISABLE 00000006 
DAP$V_CBT2 = 00000002 FAL$B_ENABLE 00000005 
DAPS$V_CDT = 00000000 FAL$B_LOGGING 00000004 
DAPSV_CHG = 00000001 FALSB_MISCOPT 00000007 
DAP$V_CT = 00000001 FAL$B_RAC 000001F7 
DAPS$V_DLT_ACC = 00000003 FAL$B_RBK_CACHE 00000012 
DAP$V_DU = 00000000 FAL$SB_RCVBUF IDX 00000011 
DAP$V_ED = 0000000 FAL$B_VALUE 00000010 
DAP$V_EXE_ACC = a4! FALSCRECK SS teeeeeee = X 02 
DAP$V_GEQ" V60 = 000000 FALSCVT_BR4_EXT eeeeeeee = X 02 
DAP$V_HRD = 00000000 FALSCVT_BN4_IMG aenereee xX (02 
DAP$V_NOA = 00000001 FALSC_WRKBLA 00002000 
DAPS$V_NOK = 00000000 FALSENCODE_ALL 00000087 RG 02 
DAPSV_NUL_CHR = ata FALSENCODE_KEY 00000000 RG 02 
DAP$V_ONC = 0000000 FALSENCODE_PR 000001F9 RG 02 
DAP$V_OWNER 2 ah 4 F ALSENCODE— SUM 00000133 RG 02 
DAP$V_PROGRP = 0000000 FALSENCODE_TIM 00000157 RG 8s 
DAP$V_PROOWN = 00000002 FAL$GQ_UIC tereeeee = X 0 
DAP$V_PROSYS s et 4 FALSK_ALLXAB = 68 90000 
DAP$V~PROWLD = 4 FALSK_KEYXAB = 04C 
DAP$V_PV = 00000003 F AL$K_WRKBLN 00 $6008 
DAP$V_RDT s age FALSL_ALLXAB B08 c00 
DAP$V_RED_ACC z 38 00000 FALSL_ALLXABINI 0000074 
DAP$V_RVN = 8 00? FALS$L-CHAIN_NXT Sons 48 
DAPS$V_VAXVMS = 00 4 FALSL_DATXAB 88 3 
DAPS$SV_WRT_ACC = $ 01 FALSL_FAB 00200 
DAP$W_ALLAENU 23 FALSL_FAB2 0000800 
DAP$W_BLS 004 FALSL_FHCXAB F4 
DAP$W_DEQ1 54 FALS$L_FOP ine 
DAP$W_DEQ2 3¢ FAL$SL_KEYNAM 1¢0 
DAP$W_DF 900 4 FALSL-KEYXAB 6 4 99 
DAPSW_FFB 0000072 FALSL-KEYXABINI 0 
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XABSV~HRD 
XABSV-NODEL 
XABSV~NOEXE 
XAB$V~NORE AD 
XABSV-NOWR ITE 
XA UL 


XABSW_RVN 
XABSW~VOL 
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Psect synopsis -SEP-1984 01:16: FAL.SRCJFALBLDXAB.MAR; 1 (7) | 
$eecococne ecceoon+ 
! Psect synopsis ! 
$ewmeeoooecccccen+ 
PSECT name Allocation PSECT No. Attributes 


» OS 4 00000000 <( 0.) 0O¢ O.) NOPIC “USR CON ABS LCL ot NOEXE NORD wOwnT NOVEC BYTE 
SABSS 00002000 ( 8192.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
FALSCODE 00000268 ¢ 619:) 02 < 2:) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
pose manma scent esa anne man sae 

Phase Page faults CPU Time Elapsed Time 

Initialization 5 00:00:00.04 00:00:01.07 

Command processing 139 00:00:00.41 ee BD 

Pass 1 342 00:00:09.19 00:00:31.10 

Symbol table sort ! Bb ES 00:00:05.62 

Pass 2 11 00:00:01.80 00:00:06.69 

Symbol table output 47 Bo BR 80-12 00:00:01.55 

Psect synopsis output 2 0:00:00.02 00:00:00.02 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 684 00:00:12.67 00:00:49.34 
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The working set Limit was 1650 pages. 
72669 bytes (142 pages) of virtual memory were used to buffer foe intermediate cod 
There were 60 pages of symbol table space allocated to hold 1145 non-local and 58 local symbols. 
614 source Lines were read in Pass 1, producing 15 object records in Pass 2 

pages of virtual memory were used to define 28 macros. 


Macro Library name Macros defined 


_$255$0UA28: CFAL.OBJJFAL.MLB; 1 11 
“$255$DUA28: SYSLIBJSTARLET. MLB; 2 14 
TOTALS (all Libraries) 25 


1500 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:F ALBLDXAB/OBJ=OBJ$:FALBLDXAB MSRC$:FALBLDXAB/UPDATE=(ENHS$:FALBLDXAB) +LIB$:FAL/LIB 
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